home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / comm / tcp / Amster-source.lha / Amster_Install / Source / about.c next >
C/C++ Source or Header  |  2001-03-27  |  4KB  |  140 lines
  1. /*
  2. ** Amster - About
  3. ** Copyright © 2000-2001 by Jacob Laursen
  4. **
  5. ** This program is free software; you can redistribute it and/or modify
  6. ** it under the terms of the GNU General Public License as published by
  7. ** the Free Software Foundation; either version 2 of the License, or
  8. ** (at your option) any later version.
  9. **
  10. ** This program is distributed in the hope that it will be useful,
  11. ** but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ** GNU General Public License for more details.
  14. **
  15. ** You should have received a copy of the GNU General Public License
  16. ** along with this program; if not, write to the Free Software
  17. ** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  18. */
  19.  
  20. #include "amster.h"
  21. #include "url.h"
  22. #include "amster_Cat.h"
  23.  
  24. #include "pix/biglogo.h"
  25.  
  26. static ULONG about_new(struct IClass *cl, Object *obj, struct opSet *msg);
  27.  
  28.  
  29. MUI_DISPATCH(about_dispatch)
  30. {
  31.     if (msg->MethodID==OM_NEW) return(about_new(cl, obj, (APTR)msg));
  32.     return DoSuperMethodA(cl, obj, msg);
  33. }
  34.  
  35.  
  36. static ULONG about_new(struct IClass *cl, Object *obj, struct opSet *msg)
  37. {
  38.     u_long *okbut;
  39.  
  40.     if (obj = (Object *)DoSuperNew(cl,obj,
  41.         MUIA_Window_Title, MSG_ABOUT_TITLE,
  42.         MUIA_Window_ID, MAKE_ID('A','B','O','U'),
  43.         MUIA_Window_UseBottomBorderScroller, FALSE,
  44.         WindowContents, VGroup,
  45.             MUIA_Background, MUII_RequesterBack,
  46.             Child, ScrollgroupObject,
  47.                 MUIA_Background, MUII_ListBack,
  48.                 MUIA_Scrollgroup_FreeHoriz, FALSE,
  49.                 MUIA_Scrollgroup_Contents, VirtgroupObject, VirtualFrame,
  50.                     Child, VSpace(5),
  51.                     Child, HGroup,
  52.                         Child, HSpace(0),
  53.                         Child, BodychunkObject,
  54.                             MUIA_FixWidth, BIGLOGO_WIDTH,
  55.                             MUIA_FixHeight, BIGLOGO_HEIGHT,
  56.                             MUIA_Bitmap_Width, BIGLOGO_WIDTH,
  57.                             MUIA_Bitmap_Height, BIGLOGO_HEIGHT,
  58.                             MUIA_Bodychunk_Depth, BIGLOGO_DEPTH,
  59.                             MUIA_Bodychunk_Body, (ULONG *)biglogo_body,
  60.                             MUIA_Bodychunk_Compression, BIGLOGO_COMPRESSION,
  61.                             MUIA_Bodychunk_Masking, BIGLOGO_MASKING,
  62.                             MUIA_Bitmap_SourceColors, (ULONG *)biglogo_colors,
  63.                         End,
  64.                         Child, HSpace(0),
  65.                     End,
  66.                     Child, TextObject,
  67.                         MUIA_Font, MUIV_Font_Big,
  68. #ifdef __MORPHOS__
  69. #ifdef AMSTER_DEBUG
  70.                         MUIA_Text_Contents, "\33c\33bVersion "AMSTER_VERSION" ("AMSTER_DATE")\nMorphOS version (BETA; build #"AMSTER_BUILD")",
  71. #else
  72.                         MUIA_Text_Contents, "\33c\33bVersion "AMSTER_VERSION" ("AMSTER_DATE")\nMorphOS version",
  73. #endif
  74. #else
  75. #ifdef AMSTER_DEBUG
  76.                         MUIA_Text_Contents, "\33c\33bVersion "AMSTER_VERSION" ("AMSTER_DATE")\nAmigaOS version (BETA; build #"AMSTER_BUILD")",
  77. #else
  78.                         MUIA_Text_Contents, "\33c\33bVersion "AMSTER_VERSION" ("AMSTER_DATE")\nAmigaOS version",
  79. #endif
  80. #endif
  81.                     End,
  82.                     Child, VSpace(5),
  83.                     Child, TextObject,
  84.                         MUIA_Text_Contents, MSG_ABOUT_LICENSE_TMP,
  85.                     End,
  86.                     Child, RectangleObject,
  87.                         MUIA_FixHeight, 8,
  88.                         MUIA_Rectangle_HBar, TRUE,
  89.                     End,
  90.                     Child, NewObject(gui->url_mcc->mcc_Class, NULL,
  91.                         URL_NAME, MSG_ABOUT_HOMEPAGE_TMP,
  92.                         URL_HREF, "http://www.amiga.dk/amster/",
  93.                     TAG_DONE),
  94.                     Child, NewObject(gui->url_mcc->mcc_Class, NULL,
  95.                         URL_NAME, MSG_ABOUT_MAILLIST_TMP,
  96.                         URL_HREF, "http://groups.yahoo.com/group/amster/",
  97.                     TAG_DONE),
  98.                     Child, NewObject(gui->url_mcc->mcc_Class, NULL,
  99.                         URL_NAME, MSG_ABOUT_FAQPAGE,
  100.                         URL_HREF, "http://www.napster.com/help/",
  101.                     TAG_DONE),
  102.                     Child, RectangleObject,
  103.                         MUIA_FixHeight, 8,
  104.                         MUIA_Rectangle_HBar, TRUE,
  105.                     End,
  106.                     Child, TextObject,
  107.                         MUIA_InnerLeft, 20,
  108.                         MUIA_InnerRight, 20,
  109.                         MUIA_Text_Contents, MSG_ABOUT_TEAM_TMP,
  110.                     End,
  111.                     Child, RectangleObject,
  112.                         MUIA_FixHeight, 8,
  113.                         MUIA_Rectangle_HBar, TRUE,
  114.                     End,
  115.                     Child, TextObject,
  116.                         MUIA_InnerLeft, 20,
  117.                         MUIA_InnerRight, 20,
  118.                         MUIA_Text_Contents, MSG_ABOUT_GREETS,
  119.                     End,
  120.                     Child, VSpace(5),
  121.                 End,
  122.             End,
  123.             Child, HGroup,
  124.                 Child, HSpace(0),
  125.                 Child, HSpace(0),
  126.                 Child, okbut = SimpleButton(MSG_OK_GAD),
  127.             End,
  128.         End,
  129.         TAG_MORE, msg->ops_AttrList))
  130.     {
  131.  
  132.         DoMethod(okbut, MUIM_Notify, MUIA_Pressed, FALSE, obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);
  133.         DoMethod(obj, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);
  134.  
  135.         return((ULONG)obj);
  136.     }
  137.  
  138.     return NULL;
  139. }
  140.